restore

(^E)show

/|______Helvetica dup RF findfont 8 ys div scalefont setfont

left top wdist 1 add ys div add moveto

clpr storerect

save

% titles